0 POKE646,0:POKE53280,12:POKE53281,12
1 REM ==================================
2 REM    COMMODARES PROBLEM #40-1 :
3 REM       SMALL STRAIGHT
4 REM    SOLUTION BY
5 REM       HARRY STODDART
6 REM ==================================
10 PRINT"THE #'S:":FOR X=1 TO 5:R=INT(RND(TI)*5+.5)+1:A(R)=A(R)+1:PRINT R;:NEXT
20 FOR Y=1 TO 3:FOR X=Y TO Y+3:S(Y)=S(Y)+SGN(A(X)):NEXT X:NEXT Y:PRINT
30 PRINT"THE SMALL STRAIGHTS ARE"1234*-(S(1)=4);2345*-(S(2)=4);3456*-(S(3)=4)
40 RUN